00010	DEFINE	CORNER	(USE)<;DOUBLE CORNER CONTROL
00020		IFN	USE,<MOVEI	U1,[ASCIZ /CORNER  /]>
00030		IFE	USE,<JRST	CORNEZ>>
00040	
00050	CORNEZ:	MOVEI	X4,1		;CREDIT IF ALL CAN BE HELD
00060		MOVE	U1,↑D31
00070		JUMPE	X5,CORNZ4	;BLACK ACTIVE
00080		TDNE	A,CORNA(U1)	;LOCATE WHITE ACTIVE PIECE
00090		JRST	.+3
00100	CORNZ1:	SOJGE	U1,.-2		;TRY AGAIN
00110	CORNZZ:	POPJ	PDP,		;EXIT
00120		TDNN	P,CORNPB(U1)	;CAN IT BE HELD
00130		SOJA	X4,CORNZZ	;NO
00140		TDNE	K,CORNA(U1)	;IS ACTIVE PIECE A KING
00150		JRST	CORNZ2		;YES
00160		MOVE	U2,PK
00170		TDNE	U2,CORNPB(U1)	;IS IT HELD BY A KING
00180		JRST	CORNZ1		;YES
00190		TDNE	P,CORNWB(U1)	;ON ACCEPTABLE SQUARE
00200		JRST	CORNZ1		;GO TO NEXT PIECE
00210		SOJA	X4,CORNZZ	;NO 
00220	
00230	CORNZ2:	MOVE	U2,PK
00240	  	TDNE	U2,CORNPB(U1)	;IS IT HELD BY A KING
00250		JRST	CORNZ3		;YES
00260		TDNE	P,CORNKB(U1)	;ON ACCEPTABLE SQUARE
00270		JRST	CORNZ1		;GO TO NEXT PIECE
00280		SOJA	X4,CORNZZ	;NO
00290	
00300	CORNZ3:	TDNE	P,CORNKK(U1)	;ON ACCEPTABLE SQUARE
00310		JRST	CORNZ1		;YES, GO TO NEXT PIECE
00320		SOJA	X4,CORNZZ	;NO
00330	
00340	CORNZ4:	TDNE	A,CORNA(U1)	;LOCATE BLACK ACTIVE PIECE
00350		JRST	.+3
00360	CORNZ5:	SOJGE	U1,.-2		;TRY AGAIN
00370		POPJ	PDP,		;EXIT
00380		TDNN	P,CORNPW(U1)	;CAN IT BE HELD
00390		SOJA	X4,CORNZZ	;NO
00400		TDNE	K,CORNA(U1)	;IS ACTIVE A KING
00410		JRST	CORNZ6		;YES
00420		MOVE	U2,PK
00430		TDNE	U2,CORNPW(U1)	;IS IT HELD BY A KING
00440		JRST	CORNZ5		;YES, GO TO NEXT PIECE
00450		TDNE	P,CORNBW(U1)	;ON ACCEPTABLE SQUARE
00460		JRST	CORNZ5		;GO TO NEXT PIECE
00470		SOJA	X4,CORNZZ	;NO
00480	
00490	CORNZ6:	MOVE	U2,PK
00500		TDNE	U2,CORNPW(U1)	;IS IT HELD BY A KING
00510		JRST	CORNZ7		;YES
00520		TDNE	P,CORNKW(U1)	;ON ACCEPTABLE SQUARE
00530		JRST	CORNZ5		;GO TO NEXT PIECE
00540		SOJA	X4,CORNZZ	;N0
00550	
00560	CORNZ7:	TDNE	P,CORNKK(U1)	;ON ACCEPTABLE SQUARE
00570		JRST	CORNZ5		;GO TO NEXT PIECE
00580		SOJA	X4,CORNZZ	;NO
00590	
01000	;ACTIVE PIECE BEING HELD
01010	CORNA:	200000000000		;1
01020		100000000000		;2
01030		040000000000		;3
01040		020000000000		;4
01050		010000000000		;5
01060		004000000000		;6
01070		002000000000		;7
01080		001000000000		;8
01090		000200000000		;9
01100		000100000000		;10
01110		000040000000		;11
01120		000020000000		;12
01130		000010000000		;13
01140		000004000000		;14
01150		000002000000		;15
01160		000001000000		;16
01170		000000200000		;17
01180		000000100000		;18
01190		000000040000		;19
01200		000000020000		;20
01210		000000010000		;21
01220		000000004000		;22
01230		000000002000		;23
01240		000000001000		;24
01250		000000000200		;25
01260		000000000100		;26
01270		000000000040		;27
01280		000000000020		;28
01290		000000000010		;29
01300		000000000004		;30
01310		000000000002		;31
01320		000000000001		;32
01330	
01340	
02000	;PASSIVE K HOLDING ACTIVE K
02010	CORNKK:	0
02020		200300000000	;1,9,10
02030		304344340000	1,2,6,9,10,11,14,15,17,18,19
02040		346367367360	;1,2,3,6,7,9,10,11,12,14,15,16,17,18,19,20,22,23,24,25,26,27,28
02050		0
02060		0
02070		004006000000	;6,14,15
02080		006107147000	;6,7,10,14,15,16,18,19,22,23,24
02090		0
02100		0
02110		000100140000	;10,18,19
02120		000142163160	;10,11,15,18,19,20,23,24,26,27,28,
02130		014004000000	;5,6,14
02140		0
02150		0
02160		000002003000	;15,23,24
02170		000300100000	;9,10,18
02180		0
02190		0
02200		000000040060	;19,27,28
02210		016316106000	;5,6,7,9,10,13,14,15,18,22,23
02220		000006002000	;14,15,23
02230		0
02240		0
02250		000346342140	;9,10,11,14,15,17,18,19,23,26,27
02260		000000140040	;18,19,27
02270		0
02280		0
02290		017357357147	;5,6,7,8,9,11,10,13,14,15,16,17,18,19,21,22,23,24,26,27,30,31,32
02300		000007147043	;14,15,18,16,19,22,23,24,27,31,32
02310		000000003001	;23,24,32
02320		0
02330	
02340	
03000	;POSSIBLE HOLDING SQUARES FOR BLACK
03010	CORNPB:	0
03020		200300000000	;1,9,10
03030		304344340000	1,2,6,9,10,11,14,15,17,18,19
03040		346367367360	;1,2,3,6,7,9,10,11,12,14,15,16,17,18,19,20,22,23,24,25,26,27,28
03050		200000000000	;1
03060		200000000000	;1
03070		314116000000	;1,2,5,6,10,13,14,15
03080		316317357000	;1,2,5,6,7,9,10,13,14,15,16,17,18,19,21,22,23,24
03090		200000000000	;1
03100		300200000000	;1,2,9
03110		354316340000	;1,2,3,5,6,9,10,13,14,15,17,18,19
03120		376357377360	;1,2,3,4,5,6,7,9,10,11,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28
03130		214004000000	;1,5,6,14
03140		214010000000	;1,5,6,13
03150		316214000000	1,2,5,6,7,9,13,14
03160		357316357000	;1,2,3,5,6,7,8,9,10,13,14,15,17,18,19,21,22,23,24
03170		314300100000	;1,2,5,6,9,10,18
03180		314310200000	;1,2,5,6,9,10,13,17
03190		356354300000	;1,2,3,5,6,7,9,10,11,13,14,17,18
03200		377376357360	;1,2,3,4,5,6,7,8,9,10,11,12,13,15,14,17,18,19,21,22,23,24,25,26,27,28
03210		316316106000	;1,2,3,5,6,7,9,10,13,14,15,18,22,23
03220		316316012000	;1,2,5,6,7,9,10,13,14,15,21,23
03230		316316214000	;1,2,5,6,7,9,10,13,14,15,17,21,22
03240		357357316000	;1,2,3,5,6,7,8,9,10,11,13,14,15,16,17,18,21,22,23
03250		356356352140	;1,2,3,5,6,7,9,10,11,13,14,15,17,18,19,21,23,26,27
03260		356356350240	;1,2,3,5,6,7,9,10,11,13,14,15,17,18,19,21,25,27
03270		356356354300	;1,2,3,5,6,7,9,10,11,13,14,15,17,18,19,21,22,25,26
03280		377377376340	;1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,25,26,27
03290		357357357147	;1,2,3,5,6,7,8,9,10,11,13,14,15,16,17,18,19,21,22,23,24,26,27,30,31,32
03300		357357357053	;1,2,3,5,6,7,8,9,10,11,13,14,15,16,17,18,19,21,22,23,24,27,29,31,32
03310		357357357216	;1,2,3,5,6,7,8,9,10,11,13,14,15,16,17,18,19,21,22,23,24,25,29,30,31
03320		357357357316	;1,2,3,5,6,7,8,9,10,11,13,4,15,16,17,18,19,21,22,23,24,25,26,29,30,31
03330	
04000	;POSSIBLE HOLDING SQUARES FOR WHITE
04010	CORNPW:	163367367367	;2,3,4,7,8,9,10,11,12,14,15,16,17,18,19,20,22,23,24,25,26,27,28,30,31,32
04020		261267267367	;1,3,4,8,9,11,12,14,15,16,17,19,20,22,23,24,25,26,27,28,30,31,32
04030		324367367367	;1,2,4,6,9,10,11,12,14,15,16,17,18,19,20,22,23,24,25,26,27,28,30,31,32
04040		346367367367	;1,2,3,6,7,9,10,11,12,14,15,16,17,18,19,20,22,23,24,25,26,27,28,30,31,32
04050		007177377377	;6,7,8,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32
04060		003067167167	;7,8,11,12,14,15,16,18,19,20,22,23,24,26,27,28,30,31,32
04070		000027167167	;12,14,15,16,18,19,20,22,23,24,26,27,28,30,31,32
04080		002007167167	;12,14,15,16,18,19,20,22,23,24,26,27,28,30,31,32
04090		163367367367	;10,11,12,15,16,17,18,19,20,25,26,27,28,30,31,32
04100		000061163163	;11,12,16,18,19,20,23,24,26,27,28,31,32
04110		000160163163	;10,12,18,19,20,23,24,26,27,28,31,32
04120		000140163163	;10,12,18,19,20,23,24,26,27,28,31,32
04130		017367177377	;5,6,7,8,9,10,11,12,15,16,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32
04140		000003027167	;15,16,20,22,23,24,26,27,27,30,31,32
04150		000001023063	;16,20,23,24,27,28,31,32
04160		000002003063	;15,23,24,27,28,31,32
04170		000363143367	;9,10,11,12,15,16,18,19,23,24,25,26,27,28,30,31,32
04180		000000060163	;19,20,26,27,28,31,32
04190		000000020061	;20,27,28,32
04200		000000040061	;19.27,28,32
04210		017377367177	;5,6,7,8,9,10,11,12,13,14,15,17,18,19,20,22,23,24,26,27,28,29,30,31,32
04220		000007163067	;14,15,16,18,19,20,23,24,27,28,30,31,32
04230		000000001003	;24,31,32
04240		000000000001	;32
04250		000367367167	;9,10,11,12,14,15,16,17,18,19,20,22,23,24,26,27,28,30,31,32
04260		000000163061	;18,19,20,23,24,27,28,32
04270		000000000001	;32
04280		000000000001	;32
04290		017357357147	5,6,7,8,9,11,10,13,14,15,16,17,18,19,21,22,23,24,26,27,30,31,32
04300		000007147043	;14,15,18,16,19,22,23,24,27,31,32
04310		000000003001	;23,24,32
04320		0
04330	
05000	;HOLDING WHITE PIECE BY A BLACK PIECE
05010	CORNWB:	0
05020		0
05030		0
05040		0
05050		0
05060		0
05070		0
05080		0
05090		200000000000	;1
05100		100000000000	;2
05110		040000000000	;3
05120		060000000000	;3,4
05130		214000000000	;1,5,6
05140		004000000000	;6
05150		002000000000	;7
05160		040000000000	;3
05170		304000000000	;1,2,6
05180		100100000000	;2,10
05190		000040000000	;11
05200		000060000000	;11,12
05210		300014000000	;1,2,13,14
05220		300004000000	;1,2,14
05230		002002000000	;7,15
05240		012040000000	;7,8,11
05250		000300000000	;9,10
05260		000100100000	;10,18
05270		142000040000	;2,3,7,19
05280		163000060000	;2,3,4,7,8,19,20
05290		016000014000	;5,6,7,21,22
05300		006100004000	;6,7,10,22
05310		000002002000	;15,23
05320		0
05330	
06000	;HOLDING A BLACK PIECE BY A WHITE PIECE
06010	CORNBW:	0
06020		000000300006	;17,18,3,31
06030		000100100000	;10,18
06040		000040000140	;11,26,27
06050		000060000140	;11,12,26,27
06060		000014000316	;13,14,25,26,29,30,31
06070		000004000106	;14,26,30,31
06080		000002003000	;15,23,24
06090		000000003000	;23,24
06100		000000000300	;25,26
06110		000000100100	;18,26
06120		000000040002	;19,31
06130		000000060003	;19,20,31,32
06140		000000014000	;21,22
06150		000000004000	;22
06160		000000002002	;23,31
06170		000000000003	;31,32
06180		000000000004	;30
06190		000000000100	;26
06200		000000000040	;27
06210		000000000040	;27
06220		000000000014	;29,30
06230		000000000004	;30
06240		000000000002	;31
06250		0
06260		0
06270		0
06280		0
06290		0
06300		0
06310		0
06320		0
06330	
07000	;HOLDING A WHITE KING BY A BLACK PIECE
07010	CORNKB:	0
07020		0
07030		0
07040		0
07050		0
07060		0
07070		0
07080		0
07090		0
07100		0
07110		0
07120		0
07130		0
07140		0
07150		0
07160		0
07170		0
07180		0
07190		0
07200		0
07210		0
07220		0
07230		0
07240		0
07250		0
07260		000000100000	;18
07270		0
07280		0
07290		000000014000	;21,22
07300		000000004000	;22
07310		000000002000	;23
07320		0
07330	
08000	;HOLDING A BLACK KING BY A WHITE PIECE
08010	CORNKW:	0
08020		000100000000	;10
08030		000040000000	;11
08040		000060000000	;11,12
08050		0
08060		0
08070		000002000000	;15
08080		0
08090		0
08100		0
08110		0
08120		0
08130		0
08140		0
08150		0
08160		0
08170		0
08180		0
08190		0
08200		0
08210		0
08220		0
08230		0
08240		0
08250		0
08260		0
08270		0
08280		0
08290		0
08300		0
08310		0
08320		0
08330